Integrate[Integrate[Integrate[-q*sin[t]*cos[p]*(R+q*cos[t])*cos[p]*sin[t],{t,2Pi, 0}] ,{p,2Pi, 0}] ,{q,r, 0}